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INTRODUCTION 


— vainaa tata 


Le système LISP 510 a été implémenté sur l'ordinateur CAE 510 en Juin 1972 pat 
P. GREUSSAY. 
Le systéme est destiné aux recherches en Intelligence Artificielle effectuées au dépar- 


tement d'Informatique de l'Université PARIS VIII. 


Les données d'applications sont principalement : 

- composition musicale et plastique ; 

- démonstration automatique de théorèmes en logique modale et temporelle ; 

- simulation d'entretien en langue naturelle, à orientation psychiatrique : 

- conception et mise au point de systèmes de programmation non déterministes et 


heuristiques. 


L'implémentation était, à l'origine, conçue comme une version simplifiée du systè- 
me LISP BBN [46] , si possible portable [7 | et macrogénérée au moyen du système STAGE 
2 [e] , adapté sur CAE 510 à cet effet. || a été très vite évident que ni la taille de la mémoire 
disponible (8192 mots de 18 bits}, ni la vitesse de calcul de la machine, ne permettraient cette simpli- 
fication. Pour les mêmes raisons d'insuffisance de mémoire, et d'absence de mémoire auxiliaire rapide, 
on a dirrenoncer à la possibilité d'adjoindre un compilateur au système. Le système se présente donc 
comme un interprète, extrêmement proche d'un macrogénérateur et'en possède les inconvénients 
{lenteur relative) et avantages (capacité d'auto-modification, traitement «propre» des variables libres, 
mode conversationnel). 

Cette brochure est une description complète du maniement du système LISP 510, Elle 
n'a en aucun cas la prétention d'être une introduction au langage LISP, elle suppose au contraire que 


le lecteur en a déjà une certaine connaissance. 


Pour s'y initier, onconsultera (1 ou[5] ; [2] décrivant plutôt la logique et l'interpréta- 
tion du langage, te classique| 9] n'étant guère indiqué aux débutants. II faut mentionner que le recuril 
d'artictes [3] contient un excellent ensemble d'exercices en «LISP purs accompagnés de leurs solutions. 

Pour faciliter la tâche de l'utilisateur, le système LISP 510 comprend plusieurs program- 
mes de TRACE des fonctions LISP, un éditeur, et un petit prélude permettant de changer aisément, 


lors de l'initialisation du système, les dimensions des piles de travail et de la tiste fibre. 
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Le système permet la tecture des fonctions 
- sur Cartes perforées {en moda batch) 
- sur console (en moda conversationnel) 
ot l'écriture des résultats 
- sur Console 


-sur table tragante. {à option), 


http:/Awww.artinfo-musinfo.org Manuel Lisp 510, juin 1972, page 3 / 23 


0 
(2) 
13] 


[4] 
[5] 


[6] . 


(7) 


[e] 
[9] 
[9 


hi 


[2] 
[13] 
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PRELUDE 


Après le chargement de LISP 
- sur le lecteur de ruban perforé 
- sur le dérouteur de bande magnétique no 1 


le système attend une commande ; on transmettra sur la machine à écrire une des commandes que 


voici, suivie d'un ratour à la ligne. 


LISP Le prélude donne la main à LISP 510 proprement dit, et ne pourra plus être désor- 


mais récupéré, étant chargé dans la zone des piles de travail. 


PRINT Le prélude imprime un deck de cartes, se terminant par une carte comportant NIL 
cadré à gauche (i.e. à partir dela première colonne}. L'impression est alors limitée 
à la Zone de texte sur la carte, permettant ainsi de ne pas trop dépendre de la len- 
teur de la MAE. Après la lecture dela carte NIL, le prélude attendra une nouvelle 


commande, 


SEE Le système informe l'utilisateur des adresses standard des piles de travail {liste 
libre, piles, zone atomes CF. Fig |) permettant de juger de l'utilité d'unelou 
plusieurs) modifications. 
ex : permettre un plus grand nombre d'atomes, ou une pile plus profonde, ou un 


plus grand nombre de doublets, etc … Le prélude imprime, n étant un entier 


décimal. 
1. TOP-ATOM n : adresse maximum d'atome 
2. BOT-SEX n : adresse de base de liste libre (en prindpe TOP - ATOM + 4) 
3. TOP-SEX n : adresse du plus haut doublet en liste libre. 
4 BOT-STACK n : adresse de base de la pile de travail {en principe TOP-SEX4 2). 
5. LEN-BUF n : nombre de caractères d'une ligne d'impression sur MAE. 


L'entier { 1,2, 3, 4 ou 5) précédant l'indicateur servira éventuellement de préfixe à la commande 

de modification PUT des adresses en question, 

PUT Pour modifier les adresses visualisées par SEE. 
La commande PUT étant frappée, on poursuivra en frappant une sous-commande 
de format que voici : {sachant quen = 1,2,3,40u5 correspond à l'indicateur dans 
SEE, et e= un entier interprétable comme une adresse de mot de CAE 510) 
n 2espaces e 


et l'adresse n sera alors initialisée à l'entier e. 
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On refrappera cette sous-commndo autant de fois que nécessaire, et on terminera 


par tout caractère différent de 1,2, 3, 4 ou 5 pour revenir au prélude. 


FIG, f 


Zone 


Atomes 


TOP - ATOM 
BOT - SEX =? 


S - expressions 


TOP - SEX + 
BOT- STACK} 


Une fois toutes les modifications affectuées, l'utilisateur frappera la commande LISP, qui lui livrera 
un système taillé sur mesure. On notera que le système n'éffectue pas de garbage collecting d'atomes. 
On aura par conséquent intérêt, en particulier pour le traitement d,énoncés en langage nature! E 1 0), 


5 1), à dépasser largement le nombre standard d'atomes-usager permis {en principe une centaine), au 


moyen de la commande PUT, 
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DONNEES. ORGANISATIONS ET TYPES. 


Voici, aprôs le chargement du système LISP 510, la configuration de la mémoire : 


Interprète 
1/0 


atomes 


pointeurs 


En dehors de l'interprète proprement dit et des piles de travail, une certainequantité de mémoire 
est assignée d'office aux typres de données particuliers. | 
En LISP 510, on aura affaire à 2 types de données : 

- pointeurs 

- atomes 
auxquels serort affectés deux zones de mémoire distinctes. Sauf modifications (CF. PRELUDE) le 
nombre initial disponible d'atomes définissables par l'utilisateur ne sera pas inférieur à 100, et le 


nombre de doublets ne sera pas inférieur à 1750. 


POINTEURS — : ils occupent un mot de CAE 510. Le mot contiendra l'adresse d'un atome ou celle 
d'un autre pointeur. 
Un DOUBLET sera composé de deux pointeurs physiquement consécutifs. 


Une LISTE est une chalne de doublets, non nécessairement contigus. 


LISTES : Pour toute jiste, la partie CAR pointera sur le premier 
élément de la liste, et la partie CDR pointera sur le 
doublet suivant de la liste. = 
Du point de vue externe, une liste est une suite d'au moins un élément — ()estlu 
comme représentant l'atome NIL — i.e, atome literal, nombre, liste, qui sera inscrite 


entre une parenthèse ouvranta, et une parenthèse fermante. 


Wid 
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Si la liste comporte deux élému is ou plus, ‘élément finat peut être précédé de 
«.» (DOT), indiquant que te CDR du dernier doublet de la liste est l'élément sui- 


vant immédiatement le &,». 


EX: (A.B) € 
(ABC) <> [alie] 


S'il n'y a pas d’occurence du «.», le CDR du dernier doublet d'une liste est implici- 


torment NL. 


Les listes sont construites par les fonctions primitives CONS et LIST (et par READ naturellement). 
Los listes seront imprimées dans l'ordre que voici : 

- une parenthèse ouvrante 

- le premier élément de la liste 

- Un espace 

- le second élément 

etc ., 
jusqu'à ce que le doublet final soit atteint. 
L'impression des listes est considérée comme achevée lorsque le CDR d'un doublet n,est pas une 
liste, Si le COR d'un doublet final est NIL,- sont alors imprimés consécutivement le CAR de ce 
doublet et une parenthèse fermante, Si, au contraire le CDR d'un doublet find n'est pas NIL, on 
aura alors l'impression du CAR de ce doublet, suivi d'un «.», puis du CDR de ce doublet, suivi en- 


fin d'une parenthèse fermante. 
EX: LISTE LUE LISTE IMPRIMEE 


(ABC.NIL) (ABC) 
(A B.C) (A B.C) 


L'occurence d'un «.» dans une liste lue ne peut avoir lieu qu'en position, PRECEDANT le 


dernier élément (externe). Ceci sera considéré ou non comme une restriction de LISP 1.5. 


Sachant que : 
{A B.CD} est sans signification 


et 


fA.(BC)) est équvalent à (ABC) 


1112 
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nb 


ATOMES : Le point do vue externe : 
* On considérera comme atome une chale de caractères de longueur quelconque , 


ne comportant aucune occurence d'un des caractères suivants | 


espace ( ) ; : 


soront considérés comme séparateurs les caractères que voici : 


espace { ) 


Sera considéré comme un commentaire une chalne de caractères quelconques, 


chahe de longueur quelconque comprise entre deux occurences de «;y. 


EX: AT; COMMENT... ( ) ; M1 équivaut à la donnée de l'atome «ATM1». 
Seuls les S/X premiers caractères ou plus de la chahe seront effectivement pris en 
compte. 

On fera dès l'abord la distinction entre 

- atomes literals, i.e. non interprétables comme des nombres 


- atomes numériques. 
Le point de vue interne : 


ATOMES LITERALS 


Un atome litéral est une zone de quatre mots de mémoire consécutifs 


Ya 
a 


Le P-NAME de l'atome est stocké en Y1-Y 2, à raison de trois caractères par mot. 
Si le P—, NAME comporte moins de six caractères, les zones innocupées seront 
remplies de caractères non imprimables :77 octal | 

EX: HOP2 ` J 


H OP 


ZONES : elle contiendra, pou les fonctions standard l'adresse du sous programme 
en langage machine correspondant, Celles-ci ne comporteront donc pas d'indicateurs 


+ SUBR où FSUBR comme en LISP 4.5 a2 N INT 


Ka ; 
ri ne EU VIT ON 


t 
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Le contenu de la zone sera désigné dans tout ce qui suit sous le nom de C-VALEUR icol- 


value) de l'atome, : 
En ce qui concerne les atornes non-standard (i.e. introduits par l'utilisateur}, la zone 


sera indéfinie iors de la définition de l'atome literal. La modification de cette zone pour- 
ra Otra effectuée par l'usage de la fonction RPLACA. 

Hest à noter que indéfini, qui n'est pas une valeur pour l'utilisateur,en est une pour 
l'interprète. En effet, lors de l'évaluation d'un atome, l'interprète cherchera d'abord s'il 
lui correspond me C-VA LEUR distincte de indéfini ; s'il en est ainsi, cette C-VALEUR 
sera la valeur de l'atome. Dans le cas contraire, et seulement dans ce cas, l'interprète 
cherchera si l'atome possède une valeur sur la A-liste (A-valeur). Si un atome est lié sur 
la A-liste, on se gardera bien de lui donner une C-valeur, toute référence ultérieure à ła 
A-liste devenant alors sans effet : la valeur indéfini étant, comme quelques autres, une 


qualité qu'on ne perd qu'unefois. 


Pour les atomes standard que voici : NIL, T, EXPR, FEXPR, LAMBDA, LABEL, FUNARG 


la C-VALEUR sera un pointeur sur ces atomes. 


On retiendra par conséquent que 
(CAR NIL) = (CDR NIL) = (CAAR NIL) = (CADDAR NIL) ==... = NIL 


ZONE p : elle est, pour les atomes standard, initialisée a NIL, à l'exception de celle de 

l'atome REM, qui contiendra, à tout instant le nombre de doublets libres dégagés par le 

dernier garbage collecting. 

L'interprète est construit de telle sorte que l'utilisateur peut, si cela lui parah utile, cedé- 

finit. en EXPR ou FEXPR des fonctions standard, au moyen de DE, DF ou DEFINE, 

L'atome acquiert alors le statut d'une fonction - utilisateur, tant que l'indicateur EXPR ou 

FEXPR ` reste présent sur la liste, sur laquelle pointe alors le contenu de la zone p 

Cette transformation est reversible : la suppression de cet indicateur restitue alors a cet 

atome son statut initial de fonction Standard. 

EX : LENGTH, qui calcule le nombre d'éléments de plus haut niveau d'une liste, 
pourra être, à l’occasion, redéfini comme une EXPR calculant le nombre d’ata- 
mes DIS TINCTS que comporte une liste, quel que soit le niveau de son occu- 


rence. 


S'il s'agit d'un atome - fonction défini par l'utilisateur on aura { par DE ou DF ou DEFINE) 


[> | e | >| EXPR 
| ou i 

FXPR 
f | etc... 


k 
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Les modifimtions de la zone [> sont effectuables en employant la fonction RPLACD, 


En LISP 510,0n distinguera donc pour tout atome iterat . 

-une C + VALEUR : contenu de la zone ol 

- une P ~ jiste > contenu de la zone (> 

-un P - NAME > content des zones Y1 y2 
Une telle structure de quatre mots consécutifs en zone de mémoire atomes est crdable 
au moyen des fonctions READ, NEXTCH et GENSYM. Quelle que soit le nombre 
d'occurences distinctes du même P - NAME dans un programme LISP, seule la premiè- 
sa cccurence induira la création d'un atome Jitéral interne, toutes les Occurenas suivan- 
tes pointerant désormais sur la structure ainsi crée. Un atome titéral aura donc une 


représentation interne unique. 
On notera de surcrolt qu'aucun garbage collecting n'est effectué sur les atomes litérals. 


15 
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ATOMES NUMÉRIQUES 


Ils offrent l'apparence externo de la représentation conventionnelle d'entiers, précd- 
dés ou non d'un signe, Contrairement aux atomes litérals, ils sont stockés directe - 
ment dans tes structures de listes dont ils sont éléments, 1.0. en zone pointeur, on 
pourra par conséquent avoir simultanément en mémoire plusieurs occurences physi- 
quement distinctes du même atome numérique. Is seront distingués des adresses 
proprement dites par Vadjonction automatique d'une constantes {on l'occurence 
60 000). H va de soi que tout se passe comme si, pour l'utilisateur, cette adjonction 


n'avait pas lieu, A un entier sera donc alloué la même place qu'un pointeur, à savoir 


un mot de CAE 510. 


En conséquence, un atome numérique 
- ne comportera pas de P + LISTE 
- ne comportera pas de C - VALEUR 
- ne possèdea pas de P : NAME à proprement parler, son impression 


étant alors assurée de façon spécifique par les fonctions PRINT et 


PRINT. 


On pourra, selon l'ontologie particulière de l'utilisateur considérer qu'un atome 
numérique est 
- un pointeur sur lui même 
{ce qui est substanciellement faux) 
- sa propre valeur i 


(ce qui est formellement faux). 


Un atome numérique est créé lors d'un READ, ou comme résultat de l'évaluation 
d'une expression arithmétique, ou comme valeur ramenée par l'évaluation d'une 
fonction à résultat numérique, 

1] est sans doute regrettable que LISP 510 ne traite pas les nombres flottants. Dans 
tous les cas, on s'abstiendra d'utiliser des entiers non inscrits dans l'intervalle 


— 50 000 , + 50 000 


EX : soit la liste lue : 
(A3A3) 


et sa représentation interne 
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BOO PRE 


TYPES DES FONCTIONS 


En LISP 510, on peut distinguer les types de fonctions comme suit : 
a. tes arguments seront ou ne seront pas évalués 
b. colles comporteront un nombre fixeou variable d'arguments 
c. olies seront définies par uneexpression LISP, ou sont directement écrites en langage 
machine. 
En théorie, on disposerait de 8 types distincts { 2 x 2 x 2}. Toutefois en LISP 510, ces caractéristiques 


ne sont pas strictement indépendantes, et on ne distinguera que 5 types distincts, sous les noms que 


voici : EXPR 
FEXPR 
SUBR N n y 
FSUBR ova 
SUBR -N 
EXPR 


' 


Les fonctions définies par des expressions LISP sont appelées des exprs.Elles seront définies au moyen 


des fonctions DE où DEFINE, Tous les arguments, en nombre fixe, seront évalués. 


FEXPR 
H s'agit également de fonctions définies par des expressions LISP. Elles seront définies au moyen de 


la fonction DF. Elles comporteront un nombre quelconque d'arguments qui ne .seront pas évalués. 


Les exprs et les fexprs seront donc des fonctions définies par l'utilisateur, Leur usage sera cependant 
fort distinct. Les exprs cœrespondent à la notion traditionnelle de fonctions : les arguments actuels 
sont évalués, puis liés sur la A-liste avec les arguments formels, puis l'interprète passe la main au corps 
de la fonction, Donc dans le cas des exprs les arguments sont appelés par valeur. Le cas des fexprs est 
fort différent, et correspond de façon lointaine à la notion d'appel par nom. Les fexprs ne compren- 
dront que 2 arguments formels, même si à l'appel, le nombre d'arguments actuels est quelconque. En 
effet, à l'appel d'une fexpr, au premier argument sera liée {sur la A-liste) la liste des arguments actuels 
non évalués, ot la nouvelle A-liste ainsi obtenue, sera lide au second argument. Ce dernier est donc ac- 
cessible dans le corps de la fexpr, et donne par conséquent au programmeur l'opportunité de modifier 
ou de consulter directement la A-liste. | 
exemple d'utilisation : la fexpr PR - AT imprime sur la même ligne tous ses arguments : 
(DF PR-AT (E A) 
(MAPC E (OUOTE PRIN1))) 
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SUBR 
Los subrs sont écrites en langage machine at correspondent au exprs. 


FSUBR 
Les fsubrs sont écrites en langage machine et correspondent aux fexprs. 


SUBR -N 
Les subr - ns sont écritos en langage machine. Elles prendront un nombre d'arguments quelconque qui 


seront tous évalués. 


En général on notora les caractéristiques suivantes : 
- 1 / l'évaluation des arguments a lieu de gauche à droite, on en déduira les effets de bords. 
-2/ en pratique, toutes les fonctions peuvent, à l'appel, comporter un nombre d'arguments quelcon- 
que. Reste que dans le cas des fonctions à nombre fixe d'arguments, les arguments supplémentaires (a 
l'appel} seront simplement évalués, et non liés, et pour cause, à des arguments formels absents. Si, au 
contraire des arguments font, à l'appel, défaut, ceux-ci seront liés à NIL sur la A-liste. (voir en appen- 
dice la « Note sur la A-liste »). 
-3/ quant à la représentation interne, créée par l'appel des fonctions DE et DF, on la déduira des 
“utilisations équivalentes de RPLACD que voici : 
(DE FOO liste-args corps) 
(RPLACD (QUOTE FOO) 
(QUOTE (EXPR {LAMBDA liste-args 
corps )))) 
(DF FOO liste-args corps) 
(RPLACD (QUOTE FOO) 
(QUOTE (FEXPR (LAMBDA liste-args 
corps }}}} 
- 4 7 Dans te cas des EXPRs, la liaison des arguments actuels évalués aux arguments formels obéit à 
la logique de la fonction PAIR. Par conséquent une liste d'arguments formels peut avoir la forme : 
(Ai A2. A3) 
On tient dans ce cas une forme spéciale de fonction à nombre quelconque d'arguments. Les valeurs 
des deux premiers arguments seront liées respectivement à A1 et A2, la liste des valeurs des arguments 
restant étant alors liée à A3. On pourra de même définir des fonctions de la forme : 
{DE FOO A corps) 
Sur fa A-liste, à l'appel, A sera lié à la liste des valeurs des arguments. 
exemple d'utilisation : la fonction PROG1, à nombre quelconque d'arguments évalue tous ses argu- 
ments, et ramène la valeur du premier : 
{DE PROG1 U (CAR U)) 
- 5 / Seules les exprs et les fexprs comportent les indicateurs EXPR et FEXPR sur leurs P-listes. || 
n'existe pas, en LISP 510 d'indicateur SUBR et FSUBR, les fonctions standard étart ici directement 


accessibles à l'interprète. 


IV 2 
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FONCTIONS ET PREDICATS PRIMITIFS 


CAR, CDR, CAAR, CADR, CDAR, CDDR, CADDR, 
CONS, RPLACD, RPLACA, QUOTE, COND, PROG, 
PROGN, GO, GOTO, RETURN, SET, SETO, ATOM, 
NUMBP, EO, NULL, NOT, EOUAL, AND, OR, MEMBER. 


FONCTIONS PRIMITIVES 


(CAR X) car livre le premier élérant d'une liste X ou l'élément de gauche d'une paire pointée 


- SUBR - 1 X. Pour les atomes litteraux, le résultat est indéfini. 

(CDR X) cdr livre le reste de la liste (la liste X moins le ler élément), C'est aussi l'élément droit 
- SUBR -1 d'une paire pointée. 

pour obtenir la P - liste d'un atome A, on évaluera (CDR (QUOTE A)). 


(CAAR X) (CAR (CAR X)) 
(CADR. X) = (CAR (CDR X)) 


H 


(CADDR X) =: (CAR (CDR (CDR X))) 
- SUBR -1 
(CONS X Y) cans construit une paire pointée (X . Y}. Si Y est une liste, X devient le 1er 


- SUBR -2 élément de cette liste. Le résultat est indéfini si Y n'est pas une liste, 


(RPLACD X Y) Place le pointeur Y dans la partie CDR du doublet pointé par X. La struc- 
-SUBR-2 ture interne de X est physiquement modifiée, cortrairement à CONS qui créé un 


nouvel élément de liste. La valeur deRPLACD est X, 


— RPLACD est avec NCONC le seul moyen de créer des listes circulaires {donc sans représenta - 
tion externe). Cet accès à la structure physique des doublets est un peu une entorse à la défini. 


tion du «LISP pur». RPLACD est utilisé par DE, DF et DEFINE pour la définition de fonctions. 


Ex : création de fonctions synonymes : 
& SECOND » pour CADR : 
(RPLACD (QUOTE SECOND) (QUOTE (EXPR CADR }})} 
(RPLACA X Y) semblable à RPLACD mais remplace la partie CAR de X par Y. La 
-SUBR- 2 valeur de RPLACA est X. 
RPLACA et RPLACD modifiant physiquement fa structure de liste de X seront donc souvent 


utilisées pour VAUTO - MODIFICATION de fonctions par apprentissage. On s'attendra cepen- 
dant à des effets étranges, lors de la mise au point (en particulier dans le cas des RPLAC(A+D) 


$ 
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accidentals sur les atomes systèmes. 

(QUOTE X) Cette fonction inbibe l'évaluation de son argument. Sa valeur est X iui- 

- FSUBR mérna, 

(COND C1 C2.., CK} La fonction conditionnelle de LISP, cond, prend un nombre quelconque 

- FSUBR d'arguments C1, C2, ..., CK, appelés clauses. Chaque clause Ci est une 
liste (E1; E2;). Les clauses sont considérées en séquence comme suit : 
la première expression E1; de la clause Ci est évaluée et sa valeur est 
classifiée comme fausse (égale à NIL) ou vraie (non égale a NIL). Si Et; 
est vraie, l'expression E2; est évaluée et la valeur de COND ast ta valeur 
de E2;, la seconda expression de la clause. 
Si El; est fausse, alors le reste de la clause Cj est ignoré at la clause sui- 
vante Cj+ 1 est considérée, 


Si aucun E1j n'est vrai, la valeur de Kexpression conditionnelle est NIL. 


(PROG ARG1 E1 E2... En) Cette fonction permet d'écrire un programme en style - ALGOL 
- FSUBR Le Jer argument est une liste des variables internes au programme (ou 
NIL si aucune variable n'est nécessaire). Chaque atome de cette liste est 
initialement lié à NIL. Cette liste sera de la forme : (AT1 AT2. ATn) 
ou ( }Lerreste du PROG est une séquence d'énoncés non atomiques (a 
évaluer) et d’atomes (littéraux et numériques) utilisés comme étiquettes 
pour GO et GOTO, Les énoncés sont évalués séparément, en sautant les 
étiquettes. Les 3 fonctions go, goto et return modifiant cette séquence. 
La valeur du PROG est en géréral spédfiée par la fonction RETURN, Si 
le programme épuise toutes ses instructions sans return, sa valeur est alors 


celle de la dernière instruction évaluée. 


Les étiquettes multiples sont permises. 
Ex:s/N= 0,7,....5 et | instruction suivante doit être S1 si N est pair, S2 sinon, on économisera 
l'usage de REM par : (GOTO N} 
0 2 4 (s1) 
1 3 5 (82) 0. 
Les étiquettes étant placées dans une liste spéciale, on peut utiliser le même atome comme variable et 
étiquette à la fois sans risque de confusion. L'utilisation du PROG permet de ne pas rendre les récur- 
sions trop profondes. Reste que l'usage de cette fonction augmente légèrement {en raison des initiali- 
sations : liaisons des variables locales, liaison des étiquettes aux instructions} le temps d'execution. 
Si un ga goto ou return est exécutée dans une fonction qui n'est pas un PROG, les go, goto ou return, 
rentreront dans le ( ou sortiront du, dans le cas de RETURN} dernier PROG entamé. On voit ici le 
moyen de sortir d'un MAP ou MAPC, ou d'une récursive, avant l'achèvement du déroulement complet 
de ces fonctions. | 
Mais dans tous les cas on doit executer les suites d'instructions de façon purement séquentielle (sans 05 


boucle}, on aura tout intérêt à faire plutôt usage de la fonction PROGN ci-dessous, 
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(PROGN X Y 2) progn évalue chacun des arguments en séquence, et ramène pour valeur, la 

- SUBR - N valeur du dernier argument évalué, 

La distinction entre PROG et PROGN est assez semblable à celle qu'ALGOL fait entre bloc (avec 
déclarations initialeslet instruction composée (sans déclarations}. Cependant Vuniformisation de LISP 
sous forme de fonctions permet d'attribuer une valeur globale à ces évaluations groupées, qu'en retrou- 


ve sous forme analogue dans ALGOL 68 8 12). 


(GO X) go est la fonction de saut en LISP, dans un PROG. La prochaine évaluation 
- FSUBR exécutée sera alors celle de l'instruction étiquetée X. 

(GOTO X) semblable à go mais l'agent X est évalué (la valeur davont être alors une éti- 
- SUBR - 1 quette). Cotte fonction sert principalement à définir les aiguillages. 
(RETURN X) un return est la sortie normale pour un prog. Son argument est évalué, et 

- SUBR - 1 sera fa valeur du prog en question. 

(SET X Y) Cette fonction donne à X la valeur Y. X et Y sont tous deux évalués avant 

- SUBR -2 l'appel. La valeur de set est Y. La valeur de X doit obligatoirement être ou 


bien une variable locale d'un PROG, ou bien un argument formel de la fonc- 
tion dans laquelle set est évalué, ou d'une fonction appe/ant cette fonction 
à un niveau supérieur, Dans tous les cas, la valeur de X devra être un atome 
litteral. En aucun cas set ou setg ne modifie la C-VALEUR d'un atome, 
mais toujours sa A-valeur. 
EX: si la valeur de X est C et la valeur de Y est 5, (SET X Y} donne aC la valeur 5, et retourne la 
valeur 5. , 
On a ici une instruction équivalente dans une certainemesure à l'affectation ALGOL. On en mesure 
cependant la plus grande puissance par cet exemple, qu'A LGOL ne permettrait certes pas 
SI Condition alors X sinon Y := expression 
(SET (COND 
{ {condition } {QUOTE X)) 
(T{QUOTE Y))) 
expression ) 


N faut noter que LISP est pratiquement contemporain d'ALGOL 60 [73] E 


(SETO X Y) = (SET (QUOTE X)Y) 

- FSUBR identique à set, mais le premier argument n'est pas évalué. 

EX : si la valeur de X est C et la valeur de Y est (A D) (SETQ X Y} donne à X la valeur (A D), ne modifie 
pas la valeur de C, et retourne {A D). | 

Dans un PROG, fe programme de trace TRASET, permet, pour chaque évaluation de setq de faire impri- 


mer, le nom de la variable affectée, et sa nouvelle valeur par setq. 
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PREDICATS ET CONNECTEURS LOGIQUES 


(ATOM X) de valeur F si X est un atome, NIL sinon. 

- SUBR - 1 

Cotte entorse (valeur T) à la règle : « tout ce qui n'est pas NIL est vrai » s'explique par l'appel que 
voici: St (ATOM NIL) ramenanit la valeur de son agent, en cas de satisfaction du prédicat, il ramé- 


nerait NIL, ie. faux , ce qui est manifestement faux, NIL étant un atome. 


(NUMBP X) de valeur X si X est un nombre, NIL sinon. 

-SUBR -1 

(EQ X Y) de valeur T si X et Y sont le même atome {littéral ou numérique), NIL 
- SUBR - 2 sinon 

{NULL X} = {EQ X NIL) 

-SUBR-1 

(NOT X) identique a NIL. 

-SUBR-1 

(EQUAL X Y) de valeur T si X et Y sont identiques à l'impression, NIL sinon, X et Y 
- SUBR -2 sont alors des expressions LISP quelconques 


H 


(NEQUAL X Y) (NOT (EQUAL X Y)) 


- SUBR - 2 

(AND X1 X2...Xn) Prend un nombre quelconque d'arguments (zéro inclus}. Si tous les 

- FSUBR arguments ont une valeur non nulle, sa valeur est celle de son dernier 
argument Xn, sinon NIL. On notera gue (AND NIL) = T. L'évaluation, 
effectuée en séquence (le lecteur fera la comparaison avec PROGN) 
stoppe au premier argument dont la valeur est NIL. 

(OR X1 X2.... Xn) Prends un nombre quelconque d'atguments (zéro inclus). Sa valeur 


est celle du premier argument dont la valeur n'est pas NIL, sinon NIL 
si tous les arguments ont la valeur NIL. On notera que (OR()) =NIL. 


L'évaluation cesse au premier argument dont la valeur n'est pas NIL. 


On notera que AND tout aussi bien que OR sont non-commutatifs, en raison de l'évaluation sé- 
guentielle. En voici un exemple frappant : la valeur de (AND [Setq X Y} (GO L)) sera à l'évi- 
dence fort différente de (AND (GO L) [Setq X Y)}. Dans le second cas, le saut vers L s'effec- 
tuera Immédiatement, et (SETO X Y) ne sera jamais évalué, Dans le prerier cas, si la valeur de 
Y est NIL, le saut vers L n'aura pas lieu. 

On utilisera avantageusement AND à la place de COND dans certains cas : 

ox: SIP? alors si P2 alors e ; expression ici non - ambigüe, s'écrira (AND P1 P2 6). On 
économisera dans les gros programmes un certain nombre de doublets, au prix d'un plus grand 


soin dans l'écriture, 


va 
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(MEMBER X Y) détarmine si X est ou non membre de la liste Yie, s'il existe un élément 
-SUBR - 2 de Y equal a X. Si oui, sa valeur est la partie de la liste Y commençant 


par l'élément X, sinon sa valeur est NIL, 


Ex (MEMBER (QUOTE C) (QUOTE (A BCDE))) = (CDE) 


VS 
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(LIST X1 X2... XN) 
-SUBR-N 


(NCONC X Y) 
-SUBR-2 


MANIPULATION DE LISTES 
ET CONCATENATION 


LIST,NCONC,LENGTH,PAIR 


- prend un nombre quelconque d'arguments tous évalués avant l'appel. 


Sa valeur est la liste des valeurs de ses arguments. 


- concaténe physiquement les listes X et Y, i.e. le CDR du dernier élé- 


ment de X pointe sur Y. Sa valeur est la liste ainsi obtenue. 


ex: siX = (12) et Y=(AB) 
(NCONC X Y) =(12AB) 
(NCONC X NIL = (12) 
(NCONC (LIST 9) Y ) = (9A B} 


:** On notera l'utilité de NCONC pour construire des listes circulaires. 
Ex ; à partir de X = (A B} on obtiendra la liste (A BABA... 
(NCONC X X) 


On prendra le plus grand soin dans l'écriture de cette fonction qui modifie physiquement et défi- 


nitivement les structures de listes. On s'attendra, lors de la mise au point, à quelques effet étranges. 


(LENGTH X) 
-SUBR-1 


(PAIR X Y) 
-SUBR-2 


- sa valeur est la longueur (nombre d'éléments) de la liste X. On peut égale- 
ment définir la longueur comme le nombre de CDR requis pour atteindre 


une liste vide. 


-Si X= (X1 X2...XN) et Y= (Y1 Y2 ... YN) 
(PAIR X Y) construit et aura camma valeur la liste 
((X1 . Y1)(X2 , Y2) ... (Xn . Yn)) 
C'est l'équivalent interne, en code machine de cette fonction, qui effectue 
la liaison des variables sur la A-liste, et celle des ét iquettes dans les PROG. 


X et Y peuvent être de longueur différentes. 


MIT 
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Ex: x =(ABC), Y= (DE) 
— (PAIR X Y) = ((C.NILK8. EHNA O} 
(PAIR Y X) = ((B.EHA.D)) 


X = (AB.C), Y= (DEFG). 
(PAIR XY) = ((C.(F G)HB.ENHA.D) - 


Vi 9 
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FONCTIONS ARITHMETIQUES 


ADD1, SUB1, ZEROP, TIMES, QUO, 
REM, PLUS, DIFFER, GT, LT. 


LISP 510 ne peut traiter que des nombres sous forme entière. 
Les atomes numériques auront la représentation externe classique, i.e., signe ou non, suivi d'une chäine 
dechiffres. Les atomes numériques ne possèdent pas de Piste et sont stockés directement dans les listes 
dont ils sont membres. lis occupent un mot, et, à l'évaluation ramènent leur propre valeur (i.e, pointent 
implicitement sur eux-mêmes) moins une constante. Par suite, faute de P-name stocké, le même nombre 
peut exister simultanément à différents endroits de la mémoire. (contrairement aux atomes li ttéraux). 
Les atomes numériques peuvent être créés par READ, ou à la suite de l'évaluation d'une fonction arith- 
métique. Par suite du mécanisme d'évaluation, un atome numérique ne saurait avoir ni de A-valeur ni 
de C-valeur, mais possède ce que l’on pourrait nommer une self-valeur. Leur « PNAME externe » 
n'existera que provisoirement à l'évaluation de PRINT ou PRINT. 


On prendra garde à ne pas faire usage d'entiers inférieurs à - 50 000 ou supérieurs à + 50 000. 


(ADD1 X) X + 1 

- SUBR - 1 

(SUBI X) X — 1 

- SUBR - 1 

(ZEROP X) = {EQ X 0) 
- SUBR - 1 : 


(TIMES X1 X2... Xn) prend un nombre quelconque d'arguments. Sa valeur est le produit deX1,X2, 


- SUBR -N weep MAL 
(QUO X Y) X / Y tronqué 
- SUBR - 2 ex: (QUO 3 2) = 1 
{QUO 3 2) = -1 
IREM X Y) le reste de la division quo deX par Y. : 
- SUBR -2 


De plus, l'évaluation : (CDR (QUOTE REM) ) livre le nanbre de doublets en liste libre dégagés par le 


dernier garbage collecting. 


VH 1 
http://www.artinfo-musinfo.org Manuel Lisp 510, juin 1972, page 22 / 23 


D. tt ag: yy M 


(PLUS X1 X2...Xn) .. Prends un nombre quelconque d'arguments. Sa valeur est ta somme de X1, 


- SUER -N X2,... Xn, 

(DIFFER X Y) X — Y 

- SUBR - 2 

(GT X Y) T si X) Y ; NIL sinon 
- SUBR - 2 

(LT X Y) Tsi X< Y;NIL sinon 
- SUBR - 2 
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